MacFormat 1999 Spring/macformat-077.iso/Demos/RealPool Demo/3D.DAT/00136.ls

Text File | 1998-05-02 | 307 b | 14 lines

on mouseDown
  butsound()
  repeat while the mouseDown
    set yu to the scrollTop of cast 134
    set yu to yu + 10
    set yu2 to the height of cast 134 - the height of sprite 4
    if yu > yu2 then
      set yu to yu2
    end if
    set the scrollTop of cast 134 to yu
    updateStage()
  end repeat
end